home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / PowerFantasm 4.10 unreg.sit / PowerFantasm 410 unreg / PowerFantasm™ / Fantasm V4 headers / Events.def < prev    next >
Text File  |  1996-06-21  |  3KB  |  82 lines
  1. **For use with Fantasm and PowerFantasm V4 from Lightsoft.
  2. nullEvent                        EQU        0
  3. mouseDown                        EQU        1
  4. mouseUp                            EQU        2
  5. keyDown                            EQU        3
  6. keyUp                            EQU        4
  7. autoKey                            EQU        5
  8. updateEvt                        EQU        6
  9. diskEvt                            EQU        7
  10. activateEvt                        EQU        8
  11. osEvt                            EQU        15
  12. ; event mask equates 
  13. mDownMask                        EQU        $0002                ; mouse button pressed 
  14. mUpMask                            EQU        $0004                ; mouse button released 
  15. keyDownMask                        EQU        $0008                ; key pressed 
  16. keyUpMask                        EQU        $0010                ; key released 
  17. autoKeyMask                        EQU        $0020                ; key repeatedly held down 
  18. updateMask                        EQU        $0040                ; window needs updating 
  19. diskMask                        EQU        $0080                ; disk inserted 
  20. activMask                        EQU        $0100                ; activate/deactivate window 
  21. highLevelEventMask                EQU        $0400                ; high-level events (includes AppleEvents) 
  22. osMask                            EQU        $8000                ; operating system events (suspend, resume) 
  23. everyEvent                        EQU        $FFFF                ; all of the above 
  24.  
  25. ; event message equates 
  26. charCodeMask                    EQU        $000000FF
  27. keyCodeMask                        EQU        $0000FF00
  28. adbAddrMask                        EQU        $00FF0000
  29. osEvtMessageMask                EQU        $FF000000
  30. ; OS event messages.  Event (sub)code is in the high byte of the message field. 
  31. mouseMovedMessage                EQU        $00FA
  32. suspendResumeMessage            EQU        $0001
  33. resumeFlag                        EQU        1                    ; Bit 0 of message indicates resume vs suspend 
  34. convertClipboardFlag            EQU        2                    ; Bit 1 in resume message indicates clipboard change 
  35. ; modifiers 
  36. activeFlag                        EQU        $0001                ; Bit 0 of modifiers for activateEvt and mouseDown events 
  37. btnState                        EQU        $0080                ; Bit 7 of low byte is mouse button state 
  38. cmdKey                            EQU        $0100                ; Bit 0 of high byte 
  39. shiftKey                        EQU        $0200                ; Bit 1 of high byte 
  40. alphaLock                        EQU        $0400                ; Bit 2 of high byte 
  41. optionKey                        EQU        $0800                ; Bit 3 of high byte 
  42. controlKey                        EQU        $1000                ; Bit 4 of high byte 
  43. ; obsolete equates 
  44. networkEvt                        EQU        10
  45. driverEvt                        EQU        11
  46. app1Evt                            EQU        12
  47. app2Evt                            EQU        13
  48.  
  49. app3Evt                            EQU        14
  50. app4Evt                            EQU        15
  51. networkMask                        EQU        $0400
  52. driverMask                        EQU        $0800
  53. app1Mask                        EQU        $1000
  54. app2Mask                        EQU        $2000
  55. app3Mask                        EQU        $4000
  56. app4Mask                        EQU        $8000
  57.  
  58.  
  59.     if    PPC
  60.         IMPORT    GetDblTime
  61.         IMPORT    GetCaretTime
  62.         IMPORT    SetEventMask
  63.         IMPORT    GetEventQueue
  64.         IMPORT    GetNextEvent
  65.         IMPORT    WaitNextEvent
  66.         IMPORT    EventAvail
  67.         IMPORT    GetMouse
  68.         IMPORT    Button
  69.         IMPORT    StillDown
  70.         IMPORT    WaitMouseUp
  71.         IMPORT    GetKeys
  72.         IMPORT    KeyTranslate
  73.         IMPORT    TickCount
  74.         IMPORT    PostEvent
  75.         IMPORT    PPostEvent
  76.         IMPORT    OSEventAvail
  77.         IMPORT    GetOSEvent
  78.         IMPORT    FlushEvents
  79.         IMPORT    SystemClick
  80.         IMPORT    SystemTask
  81.         IMPORT    SystemEvent
  82.     endif